home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoScripter.cpt / AutoScripter / card_3596.txt < prev    next >
Text File  |  1988-03-05  |  4KB  |  160 lines
  1. -- card: 3596 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2786
  5. -- name: loops
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=88 top=156 right=178 bottom=198
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Repeat X Times
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global holder
  23.   ask "How many times?" with "1"
  24.   put it && "times" & return into timesRep
  25.   repeat until it is empty
  26.     ask "What do you wish to repeat?"
  27.     if it is empty then exit repeat
  28.     put it & return into whatRep
  29.     put whatRep after timesRep
  30.   end repeat
  31.   put timesRep & "end repeat" after holder
  32.   put holder & return after field "script-it" of card "main card"
  33.   visual effect wipe left
  34.   pop card
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 8003
  42. -- rect: left=88 top=199 right=221 bottom=196
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Repeat Forever
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   global holder
  54.   put "forever " & return into timesRep
  55.   repeat forever
  56.     ask "What do you wish to repeat?"
  57.     if it is empty then exit repeat
  58.     put it & return into whatRep
  59.     put whatRep after timesRep
  60.   end repeat
  61.   put timesRep & "end repeat" after holder
  62.   put holder & return after field "script-it" of card "main card"
  63.   visual effect wipe left
  64.   pop card
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 3 (button)
  70. -- low flags: 00
  71. -- high flags: 8003
  72. -- rect: left=292 top=157 right=179 bottom=402
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Repeat Until
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   global holder
  84.   ask "Repeat until what?"
  85.   put "until " & it & return into timesRep
  86.   repeat until it is empty
  87.     ask "What do you wish to repeat?"
  88.     if it is empty then exit repeat
  89.     put it & return into whatRep
  90.     put whatRep after timesRep
  91.   end repeat
  92.   put timesRep & "end repeat" after holder
  93.   put holder & return after field "script-it" of card "main card"
  94.   visual effect wipe left
  95.   pop card
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 4 (button)
  101. -- low flags: 00
  102. -- high flags: 8003
  103. -- rect: left=293 top=199 right=221 bottom=402
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Repeat While
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   global holder
  115.   ask "Repeat while what?"
  116.   put "while " & it & return into timesRep
  117.   repeat until it is empty
  118.     ask "What do you wish to repeat?"
  119.     if it is empty then exit repeat
  120.     put it & return into whatRep
  121.     put whatRep after timesRep
  122.   end repeat
  123.   put timesRep & "end repeat" after holder
  124.   put holder & return after field "script-it" of card "main card"
  125.   visual effect wipe left
  126.   pop card
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 5 (button)
  132. -- low flags: 00
  133. -- high flags: 8003
  134. -- rect: left=201 top=251 right=273 bottom=301
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Repeat With
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   global holder
  146.   ask "Repeat with what?"
  147.   put "with " & it & return into timesRep
  148.   repeat until it is empty
  149.     ask "What do you wish to repeat?"
  150.     if it is empty then exit repeat
  151.     put it & return into whatRep
  152.     put whatRep after timesRep
  153.   end repeat
  154.   put timesRep & "end repeat" after holder
  155.   put holder & return after field "script-it" of card "main card"
  156.   visual effect wipe left
  157.   pop card
  158. end mouseUp
  159.  
  160.